home *** CD-ROM | disk | FTP | other *** search
/ Assassins - Ultimate CD Games Collection 3 / Assassins 3 - The Ultimate Games CD (1997)(Weird Science)[!][Amiga-CD32-CDTV].iso / arcade / rocko / rocko.amos / rocko.amosSourceCode < prev    next >
AMOS Source Code  |  1980-01-31  |  5KB  |  139 lines
  1. Global ROCKYLIFE,DRAGOLIFE,ROCKYPUNCH,KEYS
  2. Curs Off : X=15 : ROCKYLIFE=10 : DRAGOLIFE=10 : Hide 
  3. PICS
  4. If Ntsc=-1 Then For N=0 To 6 : Screen Display N,128,32,320,200 : Next N
  5. Screen Open 7,320,40,4096,Lowres : Flash Off : Curs Off : Cls 0
  6. Screen Display 7,128,233,320,40
  7. If Ntsc=0 Then Screen Display 7,128,233+18,320,40
  8. FARBEN
  9. Locate 7,2 : Paper 0 : Print "Rocko" : Locate 27,2 : Print "Druggo"
  10. Ink 0 : Bar 25,5 To 135,10 : Bar 185,5 To 295,10
  11. Procedure FARBEN
  12. Screen 7
  13.    RemFor N=16 To 64 : Ink N : Draw N,0 To N,40 : Next N
  14.    For N=16 To 64 : Ink 80-N : Draw N-16,0 To N-16,40 : Next N
  15.    For N=16 To 64 : Ink 80-N : Draw N+32,0 To N+32,40 : Next N
  16.    For N=16 To 64 : Ink 80-N : Draw N+80,0 To N+80,40 : Next N
  17.    For N=16 To 64 : Ink 80-N : Draw N+128,0 To N+128,40 : Next N
  18.    For N=16 To 64 : Ink 80-N : Draw N+176,0 To N+176,40 : Next N
  19.    For N=16 To 64 : Ink 80-N : Draw N+224,0 To N+224,40 : Next N
  20.    For N=16 To 64 : Ink 80-N : Draw N+272,0 To N+272,40 : Next N
  21. End Proc
  22. Gosub ROUNDCHANGE
  23. If KEYS<>-1 Then Goto 20
  24. 10 Do 
  25.    Gosub KEYARROWS
  26.    If ROCKYPUNCH=-1 Then ROCKYPUNCH Else DRAGOPUNCH
  27.    If ROCKYLIFE<1 Then Gosub ROUNDCHANGE
  28.    If DRAGOLIFE<1 Then Gosub ROUNDCHANGE
  29. Loop 
  30. 20 Do 
  31.    Gosub ARROWS
  32.    If ROCKYPUNCH=-1 Then ROCKYPUNCH Else DRAGOPUNCH
  33.    If ROCKYLIFE<1 Then Gosub ROUNDCHANGE
  34.    If DRAGOLIFE<1 Then Gosub ROUNDCHANGE
  35. Loop 
  36. ROUNDCHANGE:
  37. Sprite Off : Wait Vbl 
  38. If ROCKYLIFE<1
  39.    YNTRO=-1
  40.    ROUND=0 : Load Iff "Rocko16.ham",0
  41.    If Ntsc=-1
  42.       Screen Display 0,128,32,320,200 : Wait 150
  43.    End If 
  44.    Do 
  45.       Exit If Fire(1)=-1
  46.       K$=Inkey$ : S=Scancode
  47.       If S=76
  48.          Exit 
  49.       End If 
  50.    Loop 
  51. End If 
  52. Load Iff "rocko11.ham",0
  53. If Ntsc=-1 Then Screen Display 0,128,32,320,200
  54. ROUND=ROUND+1
  55. Screen To Front 0 : Screen 0
  56. Wind Open 1,108,150,12,6,2 : Paper 0 : Clw : Pen 30 : Curs Off 
  57. If ROUND=1 and YNTRO=0
  58.    Print : Print "  Rocko!" : Wait 100 : Print : Print " Written" : Print "using AMOS"; : Wait 100
  59.    Print "  <Fire>" : Print "    or" : Print "<up arrow>"; : CHOOSE
  60. End If 
  61. Print : Print " Round"; : Print ROUND; : Print "!" : Print : Wait 100
  62. ROCKYLIFE=(ROUND*5)+10
  63. Screen 7
  64. Ink 0 : Bar 25,5 To 135,10 : Bar 185,5 To 295,10
  65. For N=0 To(ROUND*5)+10 : Ink 1 : Draw 25+N*2,5 To 25+N*2,10 : Next N
  66. DRAGOLIFE=(ROUND*5)+10
  67. For N=0 To(ROUND*5)+10 : Ink 1 : Draw 185+N*2,5 To 185+N*2,10 : Next N
  68. If ROUND=1 Then ROUNDTIME=1200
  69. If ROUND=2 Then ROUNDTIME=900
  70. If ROUND=3 Then ROUNDTIME=700
  71. If ROUND=4 Then ROUNDTIME=600
  72. If ROUND=5 Then ROUNDTIME=550
  73. If ROUND=6 Then ROUNDTIME=500
  74. RemIf ROUND>6 Then ROUNDTIME=ROUNDTIME-30
  75. If ROUND>6 Then ROUNDTIME=500-((ROUND-6)*30)
  76. If ROUND=10 Then Load Iff "rocko07.ham",0 : If Ntsc=-1 Then Screen Display 0,128,32,320,200 : Wait 9500 : End 
  77. If KEYS=-1 Then ROUNDTIME=ROUNDTIME+450
  78. Wait 200
  79. Sam Play 1
  80. Screen To Front 3 : Wait Vbl 
  81. Load Iff "rocko08.ham",0 : Screen To Front 3 : If Ntsc=-1 Then Screen Display 0,128,32,320,200
  82. Sprite 2,265,195-18,5 : Wait Vbl 
  83. Return 
  84. ARROWS:
  85. ARROW=Rnd(3)+1
  86. Sprite 2,265,195-18,ARROW : Wait Vbl 
  87. For TIME=1 To ROUNDTIME
  88.    If ARROW=1 and Joy(1)=1 Then ROCKYPUNCH=-1
  89.    If ARROW=2 and Joy(1)=2 Then ROCKYPUNCH=-1
  90.    If ARROW=3 and Joy(1)=4 Then ROCKYPUNCH=-1
  91.    If ARROW=4 and Joy(1)=8 Then ROCKYPUNCH=-1
  92. Next TIME
  93. Sprite 2,265,195-18,5
  94. Return 
  95. KEYARROWS:
  96. ARROW=Rnd(3)+1
  97. Sprite 2,265,195-18,ARROW : Wait Vbl 
  98. For TIME=1 To ROUNDTIME
  99.    K$=Inkey$ : S=Scancode
  100.    If ARROW=1 and S=76 Then ROCKYPUNCH=-1
  101.    If ARROW=2 and S=77 Then ROCKYPUNCH=-1
  102.    If ARROW=3 and S=79 Then ROCKYPUNCH=-1
  103.    If ARROW=4 and S=78 Then ROCKYPUNCH=-1
  104. Next TIME
  105. Sprite 2,265,195-18,5
  106. Return 
  107. Procedure ROCKYPUNCH
  108.    For ROCKYFRAME=4 To 6 : Screen To Front ROCKYFRAME : Wait 4 : Next ROCKYFRAME
  109.    Shoot 
  110.    For ROCKYFRAME=5 To 3 Step -1 : Screen To Front ROCKYFRAME : Wait 4 : Next ROCKYFRAME
  111.    ROCKYPUNCH=0
  112.    DRAGOLIFE=DRAGOLIFE-2 : ROCKYLIFE=ROCKYLIFE+1
  113.    Screen 7 : Ink 1 : Draw 25+ROCKYLIFE*2,5 To 25+ROCKYLIFE*2,10
  114.    Ink 0 : Draw 189+DRAGOLIFE*2,5 To 189+DRAGOLIFE*2,10 : Draw 187+DRAGOLIFE*2,5 To 187+DRAGOLIFE*2,10
  115. End Proc
  116. Procedure DRAGOPUNCH
  117.    For DRAGOFRAME=0 To 1 : Screen To Front DRAGOFRAME : Wait 5 : Next DRAGOFRAME
  118.    Shoot 
  119.    For DRAGOFRAME=2 To 0 Step -1 : Screen To Front DRAGOFRAME : Wait 5 : Next DRAGOFRAME
  120.    ROCKYLIFE=ROCKYLIFE-2 : DRAGOLIFE=DRAGOLIFE+1
  121.    Screen 7 : Ink 1 : Draw 185+DRAGOLIFE*2,5 To 185+DRAGOLIFE*2,10
  122.    Ink 0 : Draw 29+ROCKYLIFE*2,5 To 29+ROCKYLIFE*2,10 : Draw 27+ROCKYLIFE*2,5 To 27+ROCKYLIFE*2,10
  123. End Proc
  124. Procedure PICS
  125.    Load Iff "Rocko08.ham",0 : Wait Vbl 
  126.    Load Iff "Rocko09.ham",1 : Wait Vbl 
  127.    Load Iff "Rocko10.ham",2 : Wait Vbl 
  128.    Load Iff "rocko12.ham",3 : Wait Vbl 
  129.    Load Iff "rocko13.ham",4 : Wait Vbl 
  130.    Load Iff "rocko14.ham",5 : Wait Vbl 
  131.    Load Iff "rocko15.ham",6 : Wait Vbl 
  132. End Proc
  133. Procedure CHOOSE
  134.    Do 
  135.       K$=Inkey$ : S=Scancode
  136.       Exit If Fire(1)=-1
  137.       If S=76 Then KEYS=-1 : Exit 
  138.    Loop 
  139. End Proc